   Private Sub CalculateControlSize(ByVal path As String)
     Dim OriginalX, OriginalY As Integer
     Dim NewSize As Size
     Dim Aspect As Double
     Dim pic As Image = Image.FromFile(path)

     OriginalX = PictureBox1.Size.Width   ' Pocztkowy rozmiar formantu
     OriginalY = PictureBox1.Size.Height

     lblSize.Text = "(" & CStr(pic.Width) & "x" & CStr(pic.Height) & ")"
     Aspect = CDbl(pic.Height) / CDbl(pic.Width) ' Znajd wspczynnik
                                                 ' ksztatu 
     If Aspect < 1.0 Then          ' Jeli wysoko mniejsza ni szeroko 
       NewSize.Height = CInt(Aspect * OriginalX)
       NewSize.Width = OriginalX
       PictureBox1.Size = NewSize
     Else                  ' Szeroko mniejsza ni wysoko
       NewSize.Width = CInt(OriginalY / Aspect)
       NewSize.Height = OriginalY
       PictureBox1.Size = NewSize
     End If

     ' Dopasuj obrazek do formantu
     PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
     ' Zaaduj obrazek do formantu.
     PictureBox1.Image = Image.FromFile(path)

   End Sub
